'{$STAMP BS2}
'{$PBASIC 2.0}

'PROGRAM FINAL: BINARY COUNTER
'PIN 9 IS THE MOST SIGNIFICANT DIGIT
'PIN4 IS THE LEAST SIGNIFICANT DIGIT

Cnt VAR Byte
PB1 VAR IN0

POWER3  CON 3
LED1 CON 1
LED2 CON 2
LED4 CON 4
LED5 CON 5

POWER8 CON 8
LED6 CON 6
LED7 CON 7
LED9 CON 9
LED10 CON 10

'HERE'S THE PUSH BUTTON
INPUT 0

'DEFINE THE "GROUNDS" FOR EACH SEGMENT OF THE DISPLAY
'BOTTOM
OUTPUT 1
OUTPUT 2
OUTPUT 3
OUTPUT 4
OUTPUT 5

'TOP
OUTPUT 6
OUTPUT 7
OUTPUT 8
OUTPUT 9
OUTPUT 10



'INITIALIZE EVERYTHING
'TOP
HIGH LED1
HIGH LED2
HIGH POWER3
HIGH LED4
HIGH LED5

'BOTTOM
HIGH LED6
HIGH LED7
HIGH POWER8
HIGH LED9
HIGH LED10


i VAR Byte   'counter for postion in tune
f VAR Word  'frequency of noe for freqout
C CON 523  'C note
D CON 587  'D note
E CON 659  'E note
G CON 784  'G note
R CON 0    'Silent pause (rest)



Loop:
  IF PB1 = 0 THEN Loop
  GOSUB binary0
  PAUSE 500
  GOSUB binary1
  PAUSE 500
  GOSUB binary2
  PAUSE 500
  GOSUB binary3
  PAUSE 500
  GOSUB binary4
  PAUSE 500
  GOSUB binary5
  PAUSE 500
  GOSUB binary6
  PAUSE 500
  GOSUB binary7
  PAUSE 500
  GOSUB binary8
  PAUSE 500
  GOSUB binary9
  PAUSE 500
  GOSUB binary10
  PAUSE 500
  GOSUB binary11
  PAUSE 500
  GOSUB binary12
  PAUSE 500
  GOSUB binary13
  PAUSE 500
  GOSUB binary14
  PAUSE 500
  GOSUB binary15
  PAUSE 500
  GOSUB binary0
GOTO Loop

binary0:
      HIGH LED9
      HIGH LED6
      HIGH LED1
      HIGH LED4
RETURN

binary1:
      HIGH LED9
      HIGH LED6
      HIGH LED1
      LOW  LED4
RETURN

binary2:
      HIGH LED9
      HIGH LED6
      LOW  LED1
      HIGH LED4
RETURN

binary3:
      HIGH LED9
      HIGH LED6
      LOW  LED1
      LOW  LED4
RETURN

binary4:
      HIGH LED9
      LOW  LED6
      HIGH LED1
      HIGH LED4
RETURN

binary5:
      HIGH LED9
       LOW LED6
      HIGH LED1
      LOW  LED4
RETURN

binary6:
      HIGH LED9
      LOW  LED6
      LOW  LED1
      HIGH LED4
RETURN

binary7:
      HIGH LED9
      LOW LED6
      LOW LED1
      LOW LED4
RETURN

binary8:
      LOW  LED9
      HIGH LED6
      HIGH LED1
      HIGH LED4
RETURN

binary9:
      LOW LED9
      HIGH LED6
      HIGH LED1
      LOW LED4
RETURN

binary10:
      LOW LED9
      HIGH LED6
      LOW  LED1
      HIGH LED4
RETURN

binary11:
      LOW LED9
      HIGH LED6
      LOW LED1
      LOW LED4
RETURN

binary12:
      LOW LED9
      LOW LED6
      HIGH LED1
      HIGH LED4
RETURN

binary13:
      LOW LED9
      LOW LED6
      HIGH LED1
      LOW LED4
RETURN

binary14:
      LOW LED9
      LOW LED6
      LOW LED1
      HIGH LED4
RETURN

binary15:
      LOW LED9
      LOW LED6
      LOW LED1
      LOW LED4
RETURN